home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / MCL 2.0b1 Patches / MCL 2.0b1 Source Patches / Loop-patch.lisp < prev    next >
Encoding:
Text File  |  1991-04-02  |  1.4 KB  |  40 lines  |  [TEXT/CCL2]
  1. ; In Library;loop.lisp, replace the mapc (it's the first mapc in the file)
  2. ; with the following. The change consists of replacing simple-string-length
  3. ; and string-length (one each) with length.
  4.  
  5. ;;;; Setup stuff
  6.  
  7.  
  8. (mapc #'(lambda (x)
  9.       (mapc #'(lambda (y)
  10.             (setq loop-path-keyword-alist
  11.               (cons `(,y loop-sequence-elements-path
  12.                   (of in from downfrom to downto
  13.                       below above by)
  14.                   ,@(cdr x))
  15.                 (delete (loop-tassoc
  16.                       y loop-path-keyword-alist)
  17.                     loop-path-keyword-alist
  18.                     :test #'eq :count 1))))
  19.         (car x)))
  20.       '( ((element elements) elt length sequence)
  21.     ;The following should be done by using ELEMENTS and type dcls...
  22.       ((vector-element 
  23.         vector-elements 
  24.         array-element    ;; Backwards compatibility -- DRM
  25.         array-elements)
  26.        aref length vector)
  27.       ((simple-vector-element simple-vector-elements
  28.         simple-general-vector-element simple-general-vector-elements)
  29.        svref simple-vector-length simple-vector)
  30.       ((bits bit bit-vector-element bit-vector-elements)
  31.          bit bit-vector-length bit-vector bit)
  32.       ((simple-bit-vector-element simple-bit-vector-elements)
  33.          sbit simple-bit-vector-length simple-bit-vector bit)
  34.       ((character characters string-element string-elements)
  35.        char length string string-char)
  36.       ((simple-string-element simple-string-elements)
  37.        schar length simple-string string-char)
  38.     )
  39.       )
  40.